sprintf(mail,"%s\nError from mailing list %s:\n\n%s",VERSION,to,msg);
send(to,errors,from,subject,mail,NULL);
} else {
a=extract(config,"closed=",'\n');
if(scasecmp(a,"yes")==0) {
a=readfile(listfile);
if((char *) strstr(a,from)==NULL) { /* NOT member of list */
#ifdef LOG
fprintf(log,"* Message rejected - %s not member of list.\n",from);
#endif
a=extract(config,"newusers=",'\n');
free(mail); mail=(char *) malloc(2048);
if(scasecmp(a,"no")==0) {
a=extract(config,"contact=",'\n');
if(a==NULL) {
a=(char *) malloc(6+strlen(HOST));
sprintf(a,"root@%s",HOST);
}
sprintf(mail,"You may send mail to %s@%s only if you are\nsubscribed to the list.\nContact the list operator, %s.\n",to,HOST,a);
send(to,from,listaddress,"Sending mail to this list",mail,footfile);
} else {
sprintf(mail,"You may send mail to %s@%s only if you are\nsubscribed to the list.\nTo subscribe, send a message to %s@%s\nwith the Subject set to 'subscribe'.\n",to,HOST,to,HOST);
send(to,from,listaddress,"Sending mail to this list",mail,footfile);